1 REM ***    PRINTER FORMAT PGR    ***
2 REM ***   EPSON CARD/?+G FORMAT  ***
3 REM ***   WRITTEN BY JOHN LAWS   ***
4 REM ***      SEPT 16, 1984       ***
5 REM ********************************
9 POKE53280,0:POKE53281,7:POKE646,9
10 PRINT"[147]"SPC(7)"PRINTER FORMAT PROGRAM"       "
20 [153][166]9)"1WAIT ELITE PRINT"
30 [153][166]9)"2WAIT CONDENSED PRINT"
40 [153][166]9)"3WAIT ITALICS PRINT"
50 [153][166]9)"4WAIT EMPHASIZED PRINT"
60 [153][166]9)"5WAIT ENLARGED PRINT"
70 [153][166]9)"6WAIT DOUBLE STRIKE PRINT"
80 [153][166]9)"7WAIT SET LINE SPACING"
90 [153][166]9)"8WAIT SET LEFT MARGIN"
100 [153][166]9)"9WAIT IGNORE PAPER END"
105 [153][166]9)"10WAIT SET FORM LENGTH"
107 [153][166]9)"11WAIT SET SKIP-OVER PERFORATION"
110 [153][166]10);:[133]"YOUR CHOICE";K$:[139]K$[178]""[167]110
120 K[178][197](K$):[139]K [179]1 [176] K [177]11 [167] 110
130 [159]4,4,0:[145] K [141]200,250,300,350,400,450,500,600,650,700,850
140 [152]4:[160]4:[153]"LOADCHANGE ANOTHER FUNCTION (Y/N)"
150 [161]K$:[139]K$[178]""[167]150
160 [139]K$[179][177]"Y" [175] K$[179][177]"N"[167]150
170 [139]K$[178]"Y"[167]10
180 [128]
200 [152]4,[199](27);[199](77);"ELITE MODE":[142]
250 [152]4,[199](27);[199](20);"CONDENSED MODE":[142]:[143] CARD+G CHANGES TO 15
300 [152]4,[199](27);[199](52);"ITALICS MODE":[142]
350 [152]4,[199](27);[199](69);"EMPHASIZED MODE":[142]
400 [152]4,[199](27);[199](87);[199](1);"ENLARGED MODE":[142]
450 [152]4,[199](27);[199](71);"DOUBLE STRIKE MODE":[142]
500 [153]"LOAD"[166]9)"YOUR CHOICES ARE: ":[153][166]9)"1WAIT 7/72 IN SPACING"
501 [153][166]9)"2WAIT 1/8 IN SPACING (9/72)":[153][166]9)"3WAIT 1/6 IN SPACING (12/72)"
502 [153][166]9)"4WAIT N/72 IN SPACING"
503 [161]K$:[139]K$[178]""[167]503
504 K[178][197](K$):[139]K [179]1 [176] K [177]4 [167] 503
505 [145] K [137] 590,580,570,510
506 [137]503
510 [133]"WHAT VALUE DO YOU WANT TO GIVE N";N
520 [139] N[178]0 [167]510
530 [152]4,[199](27);[199](65);[199](N);N;"/72 IN. LINE":[152]4,"SPACING SET"
531 [142]
570 [152]4,[199](27)[199](50);"1/6 IN. (12/72) LINE":[152]4,"SPACING SET":[142]
580 [152]4,[199](27);[199](48);"1/8 IN. (9/72) LINE":[152]4,"SPACING SET":[142]
590 [152]4,[199](27);[199](49);"7/72 IN. LINE":[152]4,"SPACING SET":[142]
600 [153]"LOADWHAT COLUMN DO YOU WANT LEFT MARGIN":[153][166]15);:[133] N
605 [152]4:[160]4:[159]4,4,4:[143] TRANSPARENT MODE ON STAR IS 4,4,6
610 [152]4,[199](27);[199](108);[199](N);"LEFT MARGIN IS";N:[142]
650 [152]4,[199](27);[199](56);"IGNORE PAPER-END SIGNAL":[142]
700 [153]"LOADDO YOU WISH TO SET THE FORM LENGTH BY"
710 [153][166]9);"1WAIT NUMBER OF LINES"
720 [153][166]9);"2WAIT BY INCH LENGTH"
730 [161]K$:[139]K$[178]""[167]730
740 K[178][197](K$):[139]K[179][177]1 [175] K[179][177]2 [167] 730
750 [139] K[178]2 [167] 800
760 [153]""[166]9);:[133]"HOW MANY LINES PER PAGE";N
770 [152]4,[199](27);[199](67);[199](N);"FORM LENGTH IS"N"LINES PER PAGE":[142]
800 [153]""[166]9);:[133]"HOW MANY INCHES PER PAGE";N
810 [152]4,[199](27);[199](67);[199](0);[199](N);"FORM LENGTH IS"N"INCHES PER PAGE"
820 [142]
850 [153]"LOADHOW MANY LINES TO SKIP ON BOTTOM OF PAGE":[133] N
860 [152]4,[199](27);[199](78);[199](N);"SKIP-OVER PERFORATION SET
870 PRINT#4,"WITH"N"LINES AT BOTTOM OF PAGE BEING LEFT BLANK":RETURN